home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / machine_.tar / diss.Z / diss
Internet Message Format  |  1991-05-17  |  4KB
  1. From ervin@pinbot.enet.dec.com  Wed Mar  6 08:11:02 1991
  2. Received: from zoo.ecn.purdue.edu by en.ecn.purdue.edu (5.65/1.30jrs)
  3.     id AA16834; Wed, 6 Mar 91 08:11:02 -0500
  4. Received: from decpa.pa.dec.com by zoo.ecn.purdue.edu (5.65/1.30jrs)
  5.     id AA21005; Wed, 6 Mar 91 08:10:59 -0500
  6. Received: by decpa.pa.dec.com; id AA13396; Wed, 6 Mar 91 05:08:24 -0800
  7. Message-Id: <9103061308.AA13396@decpa.pa.dec.com>
  8. Received: from pinbot.enet; by decwrl.enet; Wed, 6 Mar 91 05:08:25 PST
  9. Date: Wed, 6 Mar 91 05:08:25 PST
  10. From: 06-Mar-1991 0808 <ervin@pinbot.enet.dec.com>
  11. To: wscott@ecn.purdue.edu
  12. Subject: Here's something for your server.
  13. Status: OR
  14.  
  15. Wayne,
  16.  
  17. In case you didn't have the opportunity to get this from C.S.H, I'm forwarding 
  18. a copy of my screen dissolver directly to you, so you can add it to your 
  19. archives.  This is the most recent version, and I don't anticipate releasing 
  20. another one in the immediate future.
  21.  
  22. >>>Joe Ervin
  23.  
  24. **************************************************************************
  25.  
  26. Hello all,
  27.  
  28. The following is a new version of my screen dissolver.  This version (0.2) is
  29. slightly faster than the original version posted recently, and is roughly 50
  30. bytes smaller.  The ASC encoded program appears at the bottom of this message. 
  31. A future release may allow dissolving into the menu area when viewing the
  32. stack, if people think that would be useful (let's hear some feedback :-).
  33.  
  34. The program takes two arguments:
  35.  
  36. 2: real number (zero or one)
  37. 1: GROB (131x64)
  38.  
  39. The program will do different things with the GROB depending on whether a 1 or
  40. a 0 is in level 2.  If level 2 contains a 0, then the program will do a
  41. bit-wise dissolve of the GROB on level 1 into PICT.  The idea here is that you
  42. would use DISS in a program  after previously displaying some graphic image via 
  43. PVIEW.  When you execute DISS, the new graphic on level 1 will replace the
  44. graphic currently on the display 1 pixel at a time, in a random fashion.  The
  45. program currently requires both the GROB on level 1 and PICT to be 131x64.  Any
  46. other dimensions will generate an error message.  
  47.  
  48. If a 1 is on level 2 when DISS is executed, then instead of doing a bit-wise
  49. dissolve, it will do what I call "tiling".  In this mode of operation, the
  50. program will move random _nibbles_ from the level 1 GROB into PICT, rather than 
  51. doing one bit at a time.  The effect is slightly different, and it runs around 
  52. 5 times as fast as the bit-wise dissolve (4.2 seconds for a bit-wise dissolve, 
  53. and around .9 seconds for tiling).  I think both modes look pretty cool (of 
  54. course). :-)
  55.  
  56. Well, below is the code in ASC format.  It is written in a combination of
  57. system RPL and machine language (like Bill Wickes ASC routines themselves). 
  58. When you ASC-> the code, you'll have the program in level 1.  Just store this
  59. as DISS, preferably in your home directory so you can access it from anywhere
  60. in your directory structure. 
  61.  
  62. I thank Jan Brittenson for his assistance during this endeavor.  I could not 
  63. have finished this project without his wonderful STAR assembler and his 
  64. expert advice on writing machine language and system RPL code.  Also to be
  65. credited are Alonzo Gariepy, who did much of the pioneering work on the saturn
  66. processor, and Derek Nickel, who has provided a wealth of information regarding
  67. system RPL programming on the 48SX.
  68.  
  69. I will be watching the conference dilligently for feedback, and ideas for
  70. improvement. I found it a simple matter to include this function into TETRIS so
  71. that the startup screen dissolves into view, producing a neat effect.
  72.  
  73. Enjoy!
  74.  
  75. >>>Joe Ervin
  76.  
  77. *************************CUT HERE***************************************
  78. %%HP: T(3)A(D)F(.);
  79. "D9D20D4881D8A812BF8170140D9D208813026AC130A503223030A50322301192
  80. 004000A3D36D9D2044230C2A207200094E66716C69646027425F424024416471
  81. 6933A1B21301192038000A3D36D9D2044230C2A207200094E66716C696460274
  82. 25F4240244164716933A1B2130F7815322301192004000A3D36D9D2044230C2A
  83. 207200094E66716C696460205943445023596A756933A1B21301192038000A3D
  84. 36D9D2044230C2A207200094E66716C696460205943445023596A756933A1B21
  85. 3032230AEC8111920F780032230CCD20851008F14660AF38A850B478F14660AF
  86. 2DE109143818F09818F0981AF02174E78FB97601F56507147818F29818F2981A
  87. F08AF234FFF3094B9034FFF00D7AF0103104AF2311194B6031F0AE581AF13777
  88. 011CC6C6114C2818F220EF781AF0C81AF0B94F92819F2819F281AF0B81961AE4
  89. 80863A080857AE881AF1181AF1B8B280DE721081AF148AC298D3415081AF1AC2
  90. 135AF014B0E6011B13381AF10C213313514FBED0E650E6ABED15D001B2130B21
  91. 309C7D"
  92.  
  93.  
  94.  
  95.  
  96.